home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 013 / join.bas < prev    next >
BASIC Source File  |  1995-03-17  |  133b  |  8 lines
  1. 100   input a: ? a
  2. 110   a$ = mks$(a)
  3. 120   for i = 1 to 4
  4. 130   b$ = mid$(a$,i,1)
  5. 131   ? hex$(asc(b$))
  6. 140   next i
  7. 200   goto 100
  8.